(parse-colon-path): Really make nil, not ".", for empty path element.

diff --git a/lisp/files.el b/lisp/files.el
index 8edf13a5c4d6a69926e4ee8d6f06c594bcd58829..70e42d81bec762f3e9a10b2b3daeae5b28d83a07 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -257,9 +257,9 @@ Not actually set up until the first time you you use it.")
         (while (setq cd-colon (string-match ":" cd-path cd-start))
           (setq cd-list
                 (nconc cd-list
-                       (list (substitute-in-file-name
-                              (if (= cd-start cd-colon)
-                                  "."
+                       (list (if (= cd-start cd-colon)
+                                  nil
+                               (substitute-in-file-name
                                 (file-name-as-directory
                                  (substring cd-path cd-start cd-colon)))))))
           (setq cd-start (+ cd-colon 1)))